The World of Computer Software/The World of Computer Software.iso/ptv3n5.zip/GETPALET.SRC

Text File | 1992-09-01 | 454b | 13 lines

FUNCTION TEditorApp.GetPalette: PPalette;
CONST
  { Set the help palettes to respectable default colors based
    on the TApplication presets. }
  CNewColor = CColor + CHelpColor;
  CNewBlackWhite = CBlackWhite + CHelpBlackWhite;
  CNewMonochrome = CMonochrome + CHelpMonochrome;
  P: array[apColor..apMonochrome] of string[Length(CNewColor)] =
         (CNewColor, CNewBlackWhite, CNewMonochrome);
BEGIN
  GetPalette := @P[AppPalette];
END;